Unit UnDmLokatieTypen;

interface

uses SysUtils, Classes, InvokeRegistry, Midas, SOAPMidas, SOAPDm, Provider, DB,
  ADODB;

type
  IDmLokatieTypen = interface(IAppServerSOAP)
    ['{ECC85899-BCDC-4429-BAD1-C5CF58654970}']
  end;

  TDmLokatieTypen = class(TSoapDataModule, IDmLokatieTypen, IAppServerSOAP, IAppServer)
    DbConnection: TADOConnection;
    QrLokatieTypen: TADOQuery;
    PrvLokatieTypen: TDataSetProvider;
  private
  
  public
  
  end;

implementation

{$R *.DFM}

procedure TDmLokatieTypenCreateInstance(out obj: TObject);
begin
 obj := TDmLokatieTypen.Create(nil);
end;

initialization
   InvRegistry.RegisterInvokableClass(TDmLokatieTypen, TDmLokatieTypenCreateInstance);
   InvRegistry.RegisterInterface(TypeInfo(IDmLokatieTypen));
end.
